|
4
|
How can I fit or ensure that all elements are in the control's client area
local oSwimLane,var_Element,var_Element1,var_Elements
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
var_Elements = oSwimLane.Elements
// var_Elements.Add("Element A",-500,-500).BackColor = 0xff00
var_Element = var_Elements.Add("Element A",-500,-500)
with (oSwimLane)
TemplateDef = [dim var_Element]
TemplateDef = var_Element
Template = [var_Element.BackColor = 65280]
endwith
// var_Elements.Add("Element B",500,500).BackColor = 0xff
var_Element1 = var_Elements.Add("Element B",500,500)
with (oSwimLane)
TemplateDef = [dim var_Element1]
TemplateDef = var_Element1
Template = [var_Element1.BackColor = 255]
endwith
var_Elements.Add("Element C",48,24)
oSwimLane.FitToClient()
|
|
3
|
Context Menu - Microsoft Windows 8.1 - Ribbon Like
local oSwimLane,var_Appearance
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
var_Appearance = oSwimLane.VisualAppearance
var_Appearance.Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn")
var_Appearance.Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn")
var_Appearance.Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn")
var_Appearance.Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn")
var_Appearance.Add(17,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn")
var_Appearance.Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn")
var_Appearance.Add(30,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio0.ebn")
var_Appearance.Add(31,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio1.ebn")
var_Appearance.Add(32,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn")
var_Appearance.Add(33,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn")
var_Appearance.Add(34,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn")
var_Appearance.Add(35,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn")
oSwimLane.Template = [Background(99) = 16777216] // oSwimLane.Background(99) = 0x1000000
oSwimLane.Template = [Background(64) = 33488638] // oSwimLane.Background(64) = 0x1fefefe
oSwimLane.Template = [Background(102) = 234881024] // oSwimLane.Background(102) = 0xe000000
oSwimLane.Template = [Background(148) = 16777216] // oSwimLane.Background(148) = 0x1000000
oSwimLane.Template = [Background(149) = 16777215] // oSwimLane.Background(149) = 0xffffff
oSwimLane.Template = [Background(155) = 201326592] // oSwimLane.Background(155) = 0xc000000
oSwimLane.Template = [Background(153) = 234881024] // oSwimLane.Background(153) = 0xe000000
oSwimLane.Template = [Background(110) = 201326592] // oSwimLane.Background(110) = 0xc000000
oSwimLane.Template = [Background(112) = 587202560] // oSwimLane.Background(112) = 0x23000000
oSwimLane.Template = [Background(2) = 570425344] // oSwimLane.Background(2 /*0x2 | */) = 0x22000000
oSwimLane.Template = [Background(3) = 587202560] // oSwimLane.Background(3 /*0x3 | */) = 0x23000000
oSwimLane.Template = [Background(70) = 536870912] // oSwimLane.Background(70) = 0x20000000
oSwimLane.Template = [Background(71) = 553648128] // oSwimLane.Background(71) = 0x21000000
oSwimLane.Template = [Background(73) = 503316480] // oSwimLane.Background(73) = 0x1e000000
oSwimLane.Template = [Background(74) = 520093696] // oSwimLane.Background(74) = 0x1f000000
oSwimLane.EndUpdate()
|
|
2
|
Context Menu - Microsoft Paint - Ribbon Like
local oSwimLane,var_Appearance
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
var_Appearance = oSwimLane.VisualAppearance
var_Appearance.Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn")
var_Appearance.Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn")
var_Appearance.Add(3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn")
var_Appearance.Add(4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn")
var_Appearance.Add(5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn")
var_Appearance.Add(6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn")
var_Appearance.Add(7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn")
var_Appearance.Add(8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn")
var_Appearance.Add(9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn")
var_Appearance.Add(10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn")
var_Appearance.Add(11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn")
var_Appearance.Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn")
var_Appearance.Add(13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn")
var_Appearance.Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn")
var_Appearance.Add(15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn")
var_Appearance.Add(16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn")
var_Appearance.Add(17,"CP:16 0 0 0 1")
var_Appearance.Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn")
var_Appearance.Add(19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn")
var_Appearance.Add(20,"CP:19 0 0 0 1")
oSwimLane.Template = [Background(99) = 16777216] // oSwimLane.Background(99) = 0x1000000
oSwimLane.Template = [Background(101) = 9126421] // oSwimLane.Background(101) = 0x8b4215
oSwimLane.Template = [Background(102) = 234881024] // oSwimLane.Background(102) = 0xe000000
oSwimLane.Template = [Background(64) = 33488638] // oSwimLane.Background(64) = 0x1fefefe
oSwimLane.Template = [Background(148) = 16777216] // oSwimLane.Background(148) = 0x1000000
oSwimLane.Template = [Background(149) = 16777215] // oSwimLane.Background(149) = 0xffffff
oSwimLane.Template = [Background(155) = 218103808] // oSwimLane.Background(155) = 0xd000000
oSwimLane.Template = [Background(153) = 16777216] // oSwimLane.Background(153) = 0x1000000
oSwimLane.Template = [Background(2) = 218103808] // oSwimLane.Background(2 /*0x2 | */) = 0xd000000
oSwimLane.Template = [Background(105) = 83886080] // oSwimLane.Background(105) = 0x5000000
oSwimLane.Template = [Background(106) = 100663296] // oSwimLane.Background(106) = 0x6000000
oSwimLane.Template = [Background(107) = 117440512] // oSwimLane.Background(107) = 0x7000000
oSwimLane.Template = [Background(108) = 134217728] // oSwimLane.Background(108) = 0x8000000
oSwimLane.Template = [Background(116) = 150994944] // oSwimLane.Background(116) = 0x9000000
oSwimLane.Template = [Background(117) = 167772160] // oSwimLane.Background(117) = 0xa000000
oSwimLane.Template = [Background(118) = 184549376] // oSwimLane.Background(118) = 0xb000000
oSwimLane.Template = [Background(110) = 201326592] // oSwimLane.Background(110) = 0xc000000
oSwimLane.Template = [Background(112) = 251658240] // oSwimLane.Background(112) = 0xf000000
oSwimLane.EndUpdate()
|
|
1
|
Context Menu - Microsoft Office - Ribbon Like
local oSwimLane,var_Appearance
oSwimLane = form.EXSWIMLANEACTIVEXCONTROL1.nativeObject
oSwimLane.BeginUpdate()
var_Appearance = oSwimLane.VisualAppearance
var_Appearance.Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_background.ebn")
var_Appearance.Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupt.ebn")
var_Appearance.Add(3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupo.ebn")
var_Appearance.Add(4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_grouphot.ebn")
var_Appearance.Add(5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameh.ebn")
var_Appearance.Add(6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehs.ebn")
var_Appearance.Add(7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehi.ebn")
var_Appearance.Add(8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehe.ebn")
var_Appearance.Add(9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevs.ebn")
var_Appearance.Add(10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevi.ebn")
var_Appearance.Add(11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameve.ebn")
var_Appearance.Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_select.ebn")
var_Appearance.Add(13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_bordert.ebn")
var_Appearance.Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttond.ebn")
var_Appearance.Add(15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttonu.ebn")
var_Appearance.Add(16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tab.ebn")
var_Appearance.Add(17,"CP:16 0 0 0 1")
var_Appearance.Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabhot.ebn")
var_Appearance.Add(19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabselhot.ebn")
var_Appearance.Add(20,"CP:19 0 0 0 1")
oSwimLane.Template = [Background(99) = 16777216] // oSwimLane.Background(99) = 0x1000000
oSwimLane.Template = [Background(101) = 9126421] // oSwimLane.Background(101) = 0x8b4215
oSwimLane.Template = [Background(64) = 33488638] // oSwimLane.Background(64) = 0x1fefefe
oSwimLane.Template = [Background(148) = 16777216] // oSwimLane.Background(148) = 0x1000000
oSwimLane.Template = [Background(149) = 16777215] // oSwimLane.Background(149) = 0xffffff
oSwimLane.Template = [Background(155) = 218103808] // oSwimLane.Background(155) = 0xd000000
oSwimLane.Template = [Background(153) = 16777216] // oSwimLane.Background(153) = 0x1000000
oSwimLane.Template = [Background(2) = 218103808] // oSwimLane.Background(2 /*0x2 | */) = 0xd000000
oSwimLane.Template = [Background(3) = 16777216] // oSwimLane.Background(3 /*0x3 | */) = 0x1000000
oSwimLane.Template = [Background(105) = 83886080] // oSwimLane.Background(105) = 0x5000000
oSwimLane.Template = [Background(106) = 100663296] // oSwimLane.Background(106) = 0x6000000
oSwimLane.Template = [Background(107) = 117440512] // oSwimLane.Background(107) = 0x7000000
oSwimLane.Template = [Background(108) = 134217728] // oSwimLane.Background(108) = 0x8000000
oSwimLane.Template = [Background(116) = 150994944] // oSwimLane.Background(116) = 0x9000000
oSwimLane.Template = [Background(117) = 167772160] // oSwimLane.Background(117) = 0xa000000
oSwimLane.Template = [Background(118) = 184549376] // oSwimLane.Background(118) = 0xb000000
oSwimLane.Template = [Background(110) = 201326592] // oSwimLane.Background(110) = 0xc000000
oSwimLane.Template = [Background(102) = 234881024] // oSwimLane.Background(102) = 0xe000000
oSwimLane.Template = [Background(112) = 251658240] // oSwimLane.Background(112) = 0xf000000
oSwimLane.EndUpdate()
|